Acala

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://AUSD/iBTC 1,691,588,961 6.14 289,001,852 3,383,177,923 12.30 2,744,479,164 1,691,588,961.31 136271.4
lp://DOT/LCDOT 343,041,782 226.42 70,774,316 338,881,458 223.64 70,068,882 4,160,323.72 335.1
lp://AUSD/LDOT 3,760,971 12.46 4,605,990 7,520,812 24.96 8,988,775 3,759,841.01 302.9
lp://AUSD/INTR 1,241,338 0.30 2,005,062 2,482,676 0.59 3,275,652 1,241,337.98 100
lp://AUSD/LCDOT 17,701,836 224.34 46,996,582 17,693,002 222.96 46,935,013 8,834.77 0.7
lp://ACA/AUSD 18,163,932 257.87 21,135,423 18,167,149 260.09 21,569,591 3,217.45 0.3

Karura

Row

Pool
acala-subql
acala-dex-subql
Difference
id tvlUSD volumeUSD_24H volumeUSD_7D tvlUSD_DEX volumeUSD_24H_DEX volumeUSD_7D_DEX Absolute Percentage
lp://KBTC/KUSD -1,724,220.26 -919.04 -4,551.11 NA NA NA NA NA
lp://KINT/KUSD -1,308,088.98 -0.87 -3,809.98 NA NA NA NA NA
lp://PHA/KUSD -1,077,732.51 -87.22 -1,801.96 NA NA NA NA NA
lp://KUSD/KINT 1,295,443.24 -246.60 -3,569.15 8,640.54 0.60 5,819.49 1,286,802.70 NA
lp://KUSD/KBTC 1,661,138.25 -590.63 -4,517.18 428,924.19 21,566.45 239,595.35 1,232,214.07 NA
lp://KUSD/PHA 1,070,509.64 -77.77 -1,618.92 20,164.54 450.18 17,436.00 1,050,345.10 NA
lp://TAI/taiKSM 0.00 0.00 0.00 7,979.63 645.65 8,716.19 7,979.63 NA
lp://KAR/KSM 922,510.32 0.92 399,692.45 924,071.35 0.92 404,649.24 1,561.03 NA
lp://KAR/LKSM 546,960.53 0.65 99,494.50 548,099.44 0.65 199,340.49 1,138.92 NA
lp://KAR/KUSD 535,676.40 366.62 306,978.14 536,684.59 369.13 495,788.55 1,008.19 NA
lp://KUSD/KSM 530,954.06 1,386.82 761,438.42 531,941.41 1,388.09 768,352.27 987.35 NA
lp://KUSD/LKSM 428,121.70 1,419.74 305,413.96 427,878.30 1,420.87 377,091.10 243.39 NA
lp://KSM/LKSM 94,828.79 0.65 36,884.71 95,038.91 0.65 38,711.42 210.13 NA
lp://KUSD/ARIS2 106,103.04 1,183.73 47,352.99 106,217.69 1,399.53 97,791.33 114.64 NA
lp://KUSD/CSM 31,088.35 269.05 5,839.56 31,019.18 269.05 7,370.39 69.17 NA
lp://KAR/QTZ 5,811.79 0.59 3,191.83 5,853.90 0.59 4,138.41 42.11 NA
lp://KSM/ARIS 39.20 0.00 68.34 78.54 4.77 216.44 39.34 NA
lp://KUSD/QTZ 6,028.15 0.59 3,137.10 6,067.14 0.59 4,733.67 38.99 NA
lp://KUSD/RMRK 11,828.67 1,453.06 18,500.18 11,836.36 1,453.10 18,501.28 7.69 NA
lp://KSM/RMRK 4,619.48 340.97 6,117.60 4,623.90 341.29 8,188.97 4.42 NA
lp://KUSD/BNC 55,913.37 1,028.44 16,830.50 55,917.39 1,028.44 16,930.76 4.02 NA
---
title: "Acala / Karura Pool Stats"
output:
  flexdashboard::flex_dashboard:
    orientation: rows
    vertical_layout: scroll
    social: menu
    source_code: embed
---

```{css custom1, echo=FALSE}
.dataTables_scrollBody {
    max-height: 100% !important;
}
```

```{r global, include=FALSE}

library(knitr)
knitr::opts_chunk$set(
  message = FALSE,
  warning = FALSE,
  comment = "#>"
)

library(kableExtra)
library(formattable)
library(lubridate)
library(flexdashboard)
library(DT)
library(subscanr)
library(ghql)
x <- GraphqlClient$new()

# Helper function to concat
`%+%` <- function(a, b) paste0(a, b)

# library(reticulate)

```

```{r tokens, cache = TRUE, include=FALSE}

pools_a <- getPoolStats_acala('acala')
pools_a[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_a_dex <- getPoolStats_acala_dex('acala') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_a_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_a_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

both_a <- merge(pools_a[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_a_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_a[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_a[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_a[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]



pools_k <- getPoolStats_acala('karura')
pools_k[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

# FOR DEX must use dailyTradeVolumeUSD instead of tradeVolumeUSD
pools_k_dex <- getPoolStats_acala_dex('karura') %>%
  setnames("totalTVL", "tvlUSD_DEX")
pools_k_dex[, volumeUSD_24H := as.numeric(volumeUSD_24H)]
pools_k_dex[, volumeUSD_7D := as.numeric(volumeUSD_7D)]

pools_k[, .(id, token0.name, token1.name)]

both_k <- merge(pools_k[, .(id, tvlUSD, volumeUSD_24H, volumeUSD_7D)],
                pools_k_dex[, .(id, tvlUSD_DEX, volumeUSD_24H, volumeUSD_7D)],
                by = "id",
                all = TRUE,
                suffixes = c("", "_DEX"))
both_k[, Absolute := abs(tvlUSD - tvlUSD_DEX)] %>% 
  setorder(-Absolute)
both_k[, Percentage := round((Absolute / min(tvlUSD, tvlUSD_DEX)) * 100, 1)]

both_k[, Percentage := ifelse(Percentage > 5, 
                   cell_spec(Percentage, color = "red"), 
                   cell_spec(Percentage, color = "green"))]

```

# Acala {.tabset}

Row
----

```{r acala1}

knitr::kable(both_a, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```


# Karura {.tabset}

Row
----

```{r karura1}

knitr::kable(both_k, escape = FALSE, digits = 2, format.args = list(big.mark = ",")) %>%
  kable_styling() %>%
  add_header_above(c("Pool" = 1, "acala-subql" = 3, "acala-dex-subql" = 3, "Difference" = 2))

```